inherited frmPurchase: TfrmPurchase
  Left = 261
  Top = 98
  Width = 904
  Height = 615
  Caption = #37319#36141#35746#21333
  Color = clWindow
  Ctl3D = False
  PixelsPerInch = 96
  TextHeight = 13
  inherited rzszpnlSelect: TRzSizePanel
    Width = 896
    Height = 49
    Ctl3D = False
    ParentCtl3D = False
    inherited lblSearch: TLabel
      Top = 13
      Caption = #25628#32034#26465#20214
    end
    object lblMsg: TLabel [1]
      Left = 256
      Top = 13
      Width = 336
      Height = 13
      Caption = #19975#33021#25628#32034#65306#20869#23481#21487#20197#26159#37319#36141#21333#21495#12289#37319#36141#26085#26399#12289#20132#36135#26085#26399#12289#20379#24212#21830
    end
    inherited edtSearch: TEdit
      Top = 10
      Width = 185
      Hint = #19975#33021#25628#32034#65306#20869#23481#21487#20197#26159#37319#36141#21333#21495#12289#37319#36141#26085#26399#12289#20132#36135#26085#26399#12289#20379#24212#21830
    end
  end
  inherited rzszpnlTree: TRzSizePanel
    Top = 49
    Width = 209
    Height = 532
    inherited cpcTree: TcxPageControl
      Width = 201
      Height = 532
      ClientRectBottom = 532
      ClientRectRight = 201
      ClientRectTop = 24
      inherited ctsTree: TcxTabSheet
        TabVisible = False
        inherited cdbtlTree: TcxDBTreeList
          Width = 201
          Height = 508
        end
      end
      inherited ctsGrid: TcxTabSheet
        inherited cxgrdTree: TcxGrid
          Width = 201
          Height = 508
          inherited cxgrdbtblvwTree: TcxGridDBTableView
            OnCustomDrawCell = cxgrdbtblvwTreeCustomDrawCell
            DataController.DataSource = dsMast
            DataController.KeyFieldNames = 'PM_ID'
            OptionsView.GroupByBox = False
            object cxgrdbtblvwTreePM_ID: TcxGridDBColumn
              DataBinding.FieldName = 'PM_ID'
              Visible = False
              HeaderAlignmentHorz = taCenter
            end
            object cxgrdbtblvwTreePUR_NO: TcxGridDBColumn
              DataBinding.FieldName = 'PUR_NO'
              HeaderAlignmentHorz = taCenter
              Width = 90
            end
            object cxgrdbtblvwTreePUR_DATE: TcxGridDBColumn
              DataBinding.FieldName = 'PUR_DATE'
              HeaderAlignmentHorz = taCenter
              Width = 74
            end
            object cxgrdbtblvwTreeSTATE: TcxGridDBColumn
              DataBinding.FieldName = 'STATE'
              HeaderAlignmentHorz = taCenter
              Width = 46
            end
          end
        end
      end
    end
  end
  inherited pnlData: TPanel
    Left = 209
    Top = 49
    Width = 687
    Height = 532
    inherited rzszpnlMaster: TRzSizePanel
      Width = 687
      Height = 121
      object Label1: TLabel
        Left = 16
        Top = 8
        Width = 48
        Height = 13
        Caption = #37319#36141#21333#21495
        FocusControl = dbedtPUR_NO
      end
      object lbl9: TLabel
        Left = 464
        Top = 56
        Width = 24
        Height = 13
        Caption = #29366#24577
        FocusControl = dbedtSTATE
      end
      object lbl8: TLabel
        Left = 464
        Top = 32
        Width = 24
        Height = 13
        Caption = #37329#39069
        FocusControl = dbedtAMOUNT
      end
      object lbl7: TLabel
        Left = 440
        Top = 8
        Width = 48
        Height = 13
        Caption = #20132#36135#26085#26399
        FocusControl = dbedtDELI_DATE
      end
      object lbl6: TLabel
        Left = 223
        Top = 32
        Width = 48
        Height = 13
        Caption = #20184#27454#26041#24335
      end
      object lbl5: TLabel
        Left = 28
        Top = 32
        Width = 36
        Height = 13
        Caption = #20379#24212#21830
        FocusControl = dbedtCUST_NO
      end
      object lbl4: TLabel
        Left = 224
        Top = 8
        Width = 48
        Height = 13
        Caption = #37319#36141#26085#26399
        FocusControl = dbedtPUR_DATE
      end
      object lbl10: TLabel
        Left = 40
        Top = 56
        Width = 24
        Height = 13
        Caption = #22791#27880
        FocusControl = dbedtREMARK
      end
      object cxcbbPAY_ID: TcxDBLookupComboBox
        Left = 270
        Top = 28
        DataBinding.DataField = 'PAY_ID'
        DataBinding.DataSource = dsMast
        Properties.DropDownAutoSize = True
        Properties.DropDownListStyle = lsFixedList
        Properties.KeyFieldNames = 'PAY_ID'
        Properties.ListColumns = <
          item
            FieldName = 'PAY_ID'
          end
          item
            FieldName = 'PAY_NO'
          end
          item
            Width = 80
            FieldName = 'PAY_NM'
          end>
        Properties.ListFieldIndex = 2
        Properties.ListSource = dsPay_Mode
        TabOrder = 0
        Width = 147
      end
      object dbedtSTATE: TDBEdit
        Left = 488
        Top = 51
        Width = 70
        Height = 19
        DataField = 'STATE'
        DataSource = dsMast
        TabOrder = 1
      end
      object dbedtREMARK: TDBEdit
        Left = 64
        Top = 51
        Width = 353
        Height = 19
        DataField = 'REMARK'
        DataSource = dsMast
        TabOrder = 2
      end
      object dbedtPUR_NO: TDBEdit
        Left = 64
        Top = 5
        Width = 97
        Height = 19
        DataField = 'PUR_NO'
        DataSource = dsMast
        TabOrder = 3
      end
      object dbedtPUR_DATE: TDBEdit
        Tag = 1
        Left = 272
        Top = 5
        Width = 70
        Height = 19
        DataField = 'PUR_DATE'
        DataSource = dsMast
        TabOrder = 4
        OnDblClick = OnMastDoubleClick
      end
      object dbedtDELI_DATE: TDBEdit
        Tag = 2
        Left = 488
        Top = 5
        Width = 70
        Height = 19
        DataField = 'DELI_DATE'
        DataSource = dsMast
        TabOrder = 5
        OnDblClick = OnMastDoubleClick
      end
      object dbedtCUST_NO: TDBEdit
        Tag = 3
        Left = 64
        Top = 29
        Width = 28
        Height = 19
        DataField = 'cust_no'
        DataSource = dsMast
        TabOrder = 6
        OnDblClick = OnMastDoubleClick
      end
      object dbedtCUST_NM: TDBEdit
        Left = 93
        Top = 29
        Width = 121
        Height = 19
        DataField = 'cust_nm'
        DataSource = dsMast
        TabOrder = 7
      end
      object dbedtAMOUNT: TDBEdit
        Left = 488
        Top = 29
        Width = 70
        Height = 19
        DataField = 'AMOUNT'
        DataSource = dsMast
        TabOrder = 8
      end
      inline fmsrnf1: TfmeUserInfo
        Left = 3
        Top = 71
        Width = 681
        Height = 39
        Align = alBottom
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 9
        inherited lblAddUser: TLabel
          Left = 26
        end
        inherited lblEditUser: TLabel
          Left = 306
          Top = 16
        end
        inherited lblAddDate: TLabel
          Left = 160
        end
        inherited lblEditDate: TLabel
          Left = 440
          Top = 16
        end
        inherited dbedtAddUser: TDBEdit
          Left = 62
          Width = 80
        end
        inherited dbedtEditUser: TDBEdit
          Left = 342
          Top = 13
          Width = 80
        end
        inherited dbedtAddDate: TDBEdit
          Left = 208
          Width = 70
          DataSource = dsMast
        end
        inherited dbedtEditDate: TDBEdit
          Left = 488
          Top = 13
          Width = 70
          DataSource = dsMast
        end
        inherited adsAddUser: TADODataSet
          Left = 32
          Top = 40
        end
        inherited dsAddUser: TDataSource
          Left = 128
          Top = 40
        end
        inherited adsEditUser: TADODataSet
          Left = 432
        end
        inherited dsEditUser: TDataSource
          Left = 528
        end
        inherited dspAddUser: TDataSetProvider
          Left = 64
          Top = 40
        end
        inherited dspEditUser: TDataSetProvider
          Left = 464
        end
        inherited cdsAddUser: TClientDataSet
          IndexFieldNames = 'user_id'
          MasterFields = 'ADD_USER'
          MasterSource = dsMast
          PacketRecords = 0
          Left = 96
          Top = 40
        end
        inherited cdsEditUser: TClientDataSet
          IndexFieldNames = 'user_id'
          MasterFields = 'EDIT_USER'
          MasterSource = dsMast
          PacketRecords = 0
          Left = 496
        end
      end
    end
    inherited cpcDetail: TcxPageControl
      Top = 121
      Width = 687
      Height = 411
      ClientRectBottom = 411
      ClientRectRight = 687
      ClientRectTop = 24
      inherited ctsDetail: TcxTabSheet
        object cxgrdDetail: TcxGrid
          Left = 0
          Top = 0
          Width = 687
          Height = 387
          Align = alClient
          TabOrder = 0
          LookAndFeel.Kind = lfOffice11
          LookAndFeel.NativeStyle = False
          object cxgrdbtblvwDetail: TcxGridDBTableView
            NavigatorButtons.ConfirmDelete = False
            OnEditing = cxgrdbtblvwDetailEditing
            DataController.DataSource = dsDetail
            DataController.KeyFieldNames = 'PD_ID'
            DataController.Summary.DefaultGroupSummaryItems = <>
            DataController.Summary.FooterSummaryItems = <>
            DataController.Summary.SummaryGroups = <>
            OptionsBehavior.GoToNextCellOnEnter = True
            OptionsView.GroupByBox = False
            object cxgrdbclmnDetailPD_ID: TcxGridDBColumn
              DataBinding.FieldName = 'PD_ID'
              Visible = False
              HeaderAlignmentHorz = taCenter
            end
            object cxgrdbclmnDetailPM_ID: TcxGridDBColumn
              DataBinding.FieldName = 'PM_ID'
              Visible = False
              HeaderAlignmentHorz = taCenter
            end
            object cxgrdbclmnDetailMAT_ID: TcxGridDBColumn
              DataBinding.FieldName = 'MAT_ID'
              Visible = False
              HeaderAlignmentHorz = taCenter
            end
            object cxgrdbclmnDetailmat_no: TcxGridDBColumn
              Tag = 1
              DataBinding.FieldName = 'mat_no'
              PropertiesClassName = 'TcxButtonEditProperties'
              Properties.Buttons = <
                item
                  Default = True
                  Kind = bkEllipsis
                end>
              Properties.OnButtonClick = cxgrdbclmnDetailmat_noPropertiesButtonClick
              HeaderAlignmentHorz = taCenter
              Styles.Content = DM.cxStyleAddOnlyEdit
            end
            object cxgrdbclmnDetailmat_nm: TcxGridDBColumn
              DataBinding.FieldName = 'mat_nm'
              HeaderAlignmentHorz = taCenter
              Styles.Content = DM.cxStyleReadOnly
              Width = 204
            end
            object cxgrdbclmnDetailunit_nm: TcxGridDBColumn
              DataBinding.FieldName = 'unit_nm'
              HeaderAlignmentHorz = taCenter
              Styles.Content = DM.cxStyleReadOnly
              Width = 47
            end
            object cxgrdbclmnDetailPRICE: TcxGridDBColumn
              Tag = 2
              DataBinding.FieldName = 'PRICE'
              HeaderAlignmentHorz = taCenter
              Styles.Content = DM.cxStyleWritableEdit
              Width = 69
            end
            object cxgrdbclmnDetailQTY: TcxGridDBColumn
              Tag = 2
              DataBinding.FieldName = 'QTY'
              HeaderAlignmentHorz = taCenter
              Styles.Content = DM.cxStyleWritableEdit
              Width = 65
            end
            object cxgrdbclmnDetailAMOUNT: TcxGridDBColumn
              DataBinding.FieldName = 'AMOUNT'
              HeaderAlignmentHorz = taCenter
              Styles.Content = DM.cxStyleReadOnly
              Width = 71
            end
            object cxgrdbclmnDetailREMARK: TcxGridDBColumn
              Tag = 2
              DataBinding.FieldName = 'REMARK'
              HeaderAlignmentHorz = taCenter
              Width = 100
            end
            object cxgrdbclmnDetailADD_USER: TcxGridDBColumn
              DataBinding.FieldName = 'ADD_USER'
              Visible = False
              HeaderAlignmentHorz = taCenter
            end
            object cxgrdbclmnDetailADD_DATE: TcxGridDBColumn
              DataBinding.FieldName = 'ADD_DATE'
              Visible = False
              HeaderAlignmentHorz = taCenter
            end
            object cxgrdbclmnDetailEDIT_USER: TcxGridDBColumn
              DataBinding.FieldName = 'EDIT_USER'
              Visible = False
              HeaderAlignmentHorz = taCenter
            end
            object cxgrdbclmnDetailEDIT_DATE: TcxGridDBColumn
              DataBinding.FieldName = 'EDIT_DATE'
              Visible = False
              HeaderAlignmentHorz = taCenter
            end
            object cxgrdbclmnDetailunit_no: TcxGridDBColumn
              DataBinding.FieldName = 'unit_no'
              Visible = False
              HeaderAlignmentHorz = taCenter
            end
          end
          object cxgrdlvlDetail: TcxGridLevel
            GridView = cxgrdbtblvwDetail
          end
        end
      end
    end
  end
  inherited pmOperate: TPopupMenu
    Left = 784
  end
  inherited dsmv1: TDosMove
    Left = 752
  end
  inherited adsMast: TADODataSet
    CursorType = ctStatic
    CommandText = 
      'select a.*, b.cust_no, b.cust_nm, c.pay_no, c.pay_nm'#13#10'  from u_p' +
      'urchasem a, u_cust b, u_pay_mode c'#13#10' where a.cust_id = b.id'#13#10'   ' +
      'and a.pay_id = c.pay_id'#13#10'   and 0 = 1'#13#10' order by pm_id'
    Top = 145
    object adsMastPM_ID: TLargeintField
      FieldName = 'PM_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object adsMastPUR_NO: TStringField
      FieldName = 'PUR_NO'
    end
    object adsMastPUR_DATE: TStringField
      FieldName = 'PUR_DATE'
      Size = 10
    end
    object adsMastCUST_ID: TIntegerField
      FieldName = 'CUST_ID'
    end
    object adsMastPAY_ID: TIntegerField
      FieldName = 'PAY_ID'
    end
    object adsMastDELI_DATE: TStringField
      FieldName = 'DELI_DATE'
      Size = 10
    end
    object adsMastAMOUNT: TBCDField
      FieldName = 'AMOUNT'
      Precision = 18
      Size = 2
    end
    object adsMastREMARK: TStringField
      FieldName = 'REMARK'
      Size = 100
    end
    object adsMastSTATE: TStringField
      FieldName = 'STATE'
      FixedChar = True
      Size = 1
    end
    object adsMastADD_USER: TIntegerField
      FieldName = 'ADD_USER'
    end
    object adsMastADD_DATE: TStringField
      FieldName = 'ADD_DATE'
      Size = 10
    end
    object adsMastEDIT_USER: TIntegerField
      FieldName = 'EDIT_USER'
    end
    object adsMastEDIT_DATE: TStringField
      FieldName = 'EDIT_DATE'
      FixedChar = True
      Size = 10
    end
    object adsMastcust_no: TStringField
      FieldName = 'cust_no'
      ProviderFlags = []
      Size = 4
    end
    object adsMastcust_nm: TStringField
      FieldName = 'cust_nm'
      ProviderFlags = []
      Size = 100
    end
    object adsMastpay_no: TStringField
      FieldName = 'pay_no'
      ProviderFlags = []
      Size = 4
    end
    object adsMastpay_nm: TStringField
      FieldName = 'pay_nm'
      ProviderFlags = []
      Size = 50
    end
  end
  inherited adsDetail: TADODataSet
    CursorType = ctStatic
    CommandText = 
      'select a.*, b.mat_no, b.mat_nm, c.unit_no, c.unit_nm'#13#10'  from u_p' +
      'urchased a, u_matm b, u_unit c'#13#10' where a.mat_id = b.mat_id'#13#10'   a' +
      'nd b.unit_id = c.unit_id'#13#10'   and a.pm_id = :pm_id'#13#10' order by a.p' +
      'd_id'
    Parameters = <
      item
        Name = 'pm_id'
        DataType = ftLargeint
        Size = 8
        Value = Null
      end>
    Top = 185
    object adsDetailPD_ID: TLargeintField
      FieldName = 'PD_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object adsDetailPM_ID: TLargeintField
      FieldName = 'PM_ID'
    end
    object adsDetailMAT_ID: TIntegerField
      FieldName = 'MAT_ID'
    end
    object adsDetailPRICE: TBCDField
      FieldName = 'PRICE'
      Precision = 18
      Size = 2
    end
    object adsDetailQTY: TBCDField
      FieldName = 'QTY'
      Precision = 18
      Size = 2
    end
    object adsDetailAMOUNT: TBCDField
      FieldName = 'AMOUNT'
      Precision = 18
      Size = 2
    end
    object adsDetailREMARK: TStringField
      FieldName = 'REMARK'
      Size = 100
    end
    object adsDetailADD_USER: TIntegerField
      FieldName = 'ADD_USER'
    end
    object adsDetailADD_DATE: TStringField
      FieldName = 'ADD_DATE'
      FixedChar = True
      Size = 10
    end
    object adsDetailEDIT_USER: TIntegerField
      FieldName = 'EDIT_USER'
    end
    object adsDetailEDIT_DATE: TStringField
      FieldName = 'EDIT_DATE'
      FixedChar = True
      Size = 10
    end
    object adsDetailmat_no: TStringField
      FieldName = 'mat_no'
      ProviderFlags = []
    end
    object adsDetailmat_nm: TStringField
      FieldName = 'mat_nm'
      ProviderFlags = []
      Size = 50
    end
    object adsDetailunit_no: TStringField
      FieldName = 'unit_no'
      ProviderFlags = []
      Size = 4
    end
    object adsDetailunit_nm: TStringField
      FieldName = 'unit_nm'
      ProviderFlags = []
    end
  end
  inherited dspMast: TDataSetProvider
    UpdateMode = upWhereKeyOnly
    Top = 145
  end
  inherited cdsMast: TClientDataSet
    AfterOpen = cdsMastAfterOpen
    BeforeClose = cdsMastBeforeClose
    Top = 145
    object cdsMastPM_ID: TLargeintField
      FieldName = 'PM_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsMastPUR_NO: TStringField
      DisplayLabel = #37319#36141#21333#21495
      FieldName = 'PUR_NO'
    end
    object cdsMastPUR_DATE: TStringField
      DisplayLabel = #37319#36141#26085#26399
      FieldName = 'PUR_DATE'
      Size = 10
    end
    object cdsMastCUST_ID: TIntegerField
      FieldName = 'CUST_ID'
    end
    object cdsMastPAY_ID: TIntegerField
      FieldName = 'PAY_ID'
    end
    object cdsMastDELI_DATE: TStringField
      FieldName = 'DELI_DATE'
      Size = 10
    end
    object cdsMastAMOUNT: TBCDField
      FieldName = 'AMOUNT'
      Precision = 18
      Size = 2
    end
    object cdsMastREMARK: TStringField
      FieldName = 'REMARK'
      Size = 100
    end
    object cdsMastSTATE: TStringField
      DisplayLabel = #29366#24577
      FieldName = 'STATE'
      OnGetText = cdsMastSTATEGetText
      FixedChar = True
      Size = 1
    end
    object cdsMastADD_USER: TIntegerField
      FieldName = 'ADD_USER'
    end
    object cdsMastADD_DATE: TStringField
      FieldName = 'ADD_DATE'
      Size = 10
    end
    object cdsMastEDIT_USER: TIntegerField
      FieldName = 'EDIT_USER'
    end
    object cdsMastEDIT_DATE: TStringField
      FieldName = 'EDIT_DATE'
      FixedChar = True
      Size = 10
    end
    object cdsMastcust_no: TStringField
      FieldName = 'cust_no'
      ProviderFlags = []
      Size = 4
    end
    object cdsMastcust_nm: TStringField
      FieldName = 'cust_nm'
      ProviderFlags = []
      Size = 100
    end
    object cdsMastpay_no: TStringField
      FieldName = 'pay_no'
      ProviderFlags = []
      Size = 4
    end
    object cdsMastpay_nm: TStringField
      FieldName = 'pay_nm'
      ProviderFlags = []
      Size = 50
    end
  end
  inherited dsMast: TDataSource
    Top = 145
  end
  inherited dspDetail: TDataSetProvider
    UpdateMode = upWhereKeyOnly
    Top = 185
  end
  inherited cdsDetail: TClientDataSet
    IndexFieldNames = 'PM_ID'
    MasterFields = 'PM_ID'
    Params = <
      item
        DataType = ftLargeint
        Precision = 19
        Name = 'pm_id'
        ParamType = ptInput
        Size = 8
      end>
    AfterPost = cdsDetailAfterPost
    Top = 185
    object cdsDetailPD_ID: TLargeintField
      FieldName = 'PD_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsDetailPM_ID: TLargeintField
      FieldName = 'PM_ID'
    end
    object cdsDetailMAT_ID: TIntegerField
      FieldName = 'MAT_ID'
    end
    object cdsDetailPRICE: TBCDField
      DisplayLabel = #21333#20215
      FieldName = 'PRICE'
      OnValidate = OnDetailRefACount
      Precision = 18
      Size = 2
    end
    object cdsDetailQTY: TBCDField
      DisplayLabel = #25968#37327
      FieldName = 'QTY'
      OnValidate = OnDetailRefACount
      Precision = 18
      Size = 2
    end
    object cdsDetailAMOUNT: TBCDField
      DisplayLabel = #37329#39069
      FieldName = 'AMOUNT'
      Precision = 18
      Size = 2
    end
    object cdsDetailREMARK: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'REMARK'
      Size = 100
    end
    object cdsDetailADD_USER: TIntegerField
      FieldName = 'ADD_USER'
    end
    object cdsDetailADD_DATE: TStringField
      FieldName = 'ADD_DATE'
      FixedChar = True
      Size = 10
    end
    object cdsDetailEDIT_USER: TIntegerField
      FieldName = 'EDIT_USER'
    end
    object cdsDetailEDIT_DATE: TStringField
      FieldName = 'EDIT_DATE'
      FixedChar = True
      Size = 10
    end
    object cdsDetailmat_no: TStringField
      DisplayLabel = #29289#26009#32534#21495
      FieldName = 'mat_no'
      ProviderFlags = []
    end
    object cdsDetailmat_nm: TStringField
      DisplayLabel = #29289#26009#21517#31216
      FieldName = 'mat_nm'
      ProviderFlags = []
      Size = 50
    end
    object cdsDetailunit_no: TStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldName = 'unit_no'
      ProviderFlags = []
      Size = 4
    end
    object cdsDetailunit_nm: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'unit_nm'
      ProviderFlags = []
    end
  end
  inherited dsDetail: TDataSource
    Top = 185
  end
  object adsPay_Mode: TADODataSet
    Connection = DM.conApp
    CursorType = ctStatic
    CommandText = 'select * from U_PAY_MODE order by pay_no'
    Parameters = <>
    Left = 16
    Top = 249
  end
  object dsPay_Mode: TDataSource
    DataSet = adsPay_Mode
    Left = 48
    Top = 249
  end
end
